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Ogni fiorar ogni Manifestazioni dedicata ai 
computer lascia un bagaglio di contatti * parole» 
sp i e gaz I ori \ m Ha a «onte di tutto ciò' » suellc che 
lascia veramente attoniti e 1 proprio il facile 
approccio che ì ragazzini dimostrano verso il 
P£1/C&rt, 

A “BIT 91 - * * r chiaro» eravamo anche noi presenti 
ed il nostro stand e' itato let ter a latente preso di 
assalto. Ha lo stupore maggiore non e ( stato per 
guaila guani ita' di Sente interessata che * venuta 
a trovarci» «a piuttosto» proprio in sue II a 
giornata di venerdì r t per suelle scolaresche dì 
scuola «ledi® e di scuola superiore.. 

10 anni» o poco più'» con il naso verso l'alto a 
guardarmi e con il di tino che Punta al FETs 
"Posso provare-* signore?” 

"Bhii.. si., dai* 

Non se lo fa ripetere due volte? tira fuori di 
tasca ! un temperino» un pezzo di corda* quattro 
tarpi dì bottiglia» un pacchettino di figurine di 
Atlas UFO robot e Poi**, un foglietto di carta un 
po’ strop icciata » la stende e cerca di stirarla con 
la nano destra ienedolo fermo con la sinistra¬ 
si sistema meglio sulla sedia e*.* 

10 CLR i PRIMI CHR*U47> 

20 INPUT 1 ' ...... 

30 


275 GQSUB 1000 

Si ferma un attimo? il listato* scritto a mano» e* 
finito» ma lui dopa una breve pensata* continua con 
la riga 280* poi la 290* e cosi* vie* 

Dopo un po' ... RUN 

QUALE OPERAZIONE + - * / ? e lui batte / 

QUALE E' IL DIVIDENDO 7 batte 1343 

QUALE E 1 IL DIVISORE ? batte 12 

SYNTAX ERR0R ON nnn 
LIST nnn 
"Accidenti !!* M 

Corresse l'errore e poi dì nuovo? RUM 
Quest® volta funziona. 

Si rivolse ancora a me* 

"Posso fare il listini sulla stampante?" 

"Certo" rispondo io» e mi sono trattenuto dal 
chiedere "ma sei capace?"* avrei senza dùbbio fatto 
una figura del -rut-. 

Infatti* OPEN 4*4’* CflD 4* LIST 
"Grazie" * e se ne va tutto contento. 

E noi? E noi siamo stati \i f a guardare. 













SEMBLER 

PER 

TUTTI 


Il sistema di numerazione usato nei jjP 
e' '-lue Ilo binario puro e pertanto 
dittici li ss ime da r ar pr esentarle , ma 
con un Piccolo artificio si può - " 
semr liticare tutt o note vo Ime nte 

ricorrendo al sistema di numerazione 
esodaci male consistente di sedici 
s i mbo1 i : 


Per esempio i 1 numero 12 in base dieci 
e" 1100 in fcii nar io pupo e se idp li cerner te 
C in esadecimale <fig, 1>. 

Poiché - ' tt'ia. 2 > la memoria del 
computer e' una successione di gruppi 
di S bit ciascuno detti 


noi dovremmo scrivere un Programma ir 
binario puro proprio come indicato in 
timore. 2j tigur-arsx la contusione che 
ne verrebbe -fuori per un programma di 
un centinaio di parole. 

Se per o " dividi amo idea Ime ri te c on un a 
linea tratteggiata la ■'striscia'' 
otteniamo due gruppi di quattro bit 
ciascuno per ogni parola che * tradotti 


m codice esadecimale^ seno motto Piu' 
taci ti-da scrivere in memoria e da 
controllare in seguito. Le prime tre 
parole di figura 2 anzi che * 1S10100Ì 

1111 ! Ili 10001101 si scrivono R8 FF SU 
eco., Watura.lmente c'e' bisegno di un 
programma ohe tr.aduca da codice 
esadecimale^ scritto mediante la 
tastiera del PET utilizzando cifre e 
lettere^ in binario puro dato che i1 
computer ragiona solamente con ouuesto 
sistema. 


numero 

deeirrr. 

numero 

esadec. 

binario 
puro 

0 

0 

i 

0 0 0 0 

1 

1 

0 0 0 1 

2 

2 

0 0 10 

3 

3 

0 0 11 

4 

4 

0 10 0 

5 

5 

0 10 1 

6 

6 

0 110 

7 

7 

0 111 

8 

3 

1 0 0 0 

3 

$ 

1G01 i 

10 

fi 

10 10 

11 

B 

10 11 

12 

C 

110 0 

13 

D 

110 1 

14 

E 

1110 

15 

F 

1111 


Figura 1 
































indir. 

ind.base 16 

dato contenuto 

base 

zona 

ne \ l'indirizze 

10 

atta bassa 

toinarìo 

esad. 

326 

03 3Fi 

1010 1001 

A3 

327 

03 3£ 

ili! 1111 

FF 

323 

33 3C 

1800 U01 

SD 

329 

03 3D 

0080 0008 

00 

330 

03 3E 

1000 8000 

80 

331 

03 3F 

0110 0000 

60 

332 

03 40 


« * 

333 

03 41 

m m m ■ ■ * ■ » 

■ p 

p m * 

p * ■ * 


P 4 

m ■ * 

■ s ■ 


■ fi 


F i gura 2 


Tale programma ^ Piuttosto sofisticato 
, e' residente nei F'ET dotati di nuove 
ROM e richi amatoi le battendo 

1 "istr uz:©ne SYS < 4 > ; nei P E T con 
vecchie FON e-" necessario invece 
caricare in memoria i 1 progranima noto 
con i 1 nome di UN. 

Diamo comunque per scontato che i1 
lettore serri a usare tale programma. 

L'esempio considerato in fiaura 2 e 
un se mp I i c i ss ì mo rrogramma i n 

L_ „ r-1 „ < liniiuì?g ì o macchina). Prima di 
comrfi ©ntar lo de f i n i amo 1 ' aocumu 1 ato re ■ 
questo e"' un registro di otto bit 
interne alla CPU <6592? attraverso il 
caia le viene al ab or ata. u na gr aride 

■:tuantita' di inf or-maziorii Presenti in 
uri programma. Infatti quando facciamo 
partire i l »org. R9 p FF 3D 86 SS 60 la 

CPU carica il dato A9# * Poiché' le 

abbiamo detto che la locazione ^33 A 
contiene il mimo dato da elaborare 
capisce che A3 e" una istruzione ed 
esattamente- leggendo A9# carica 
ne 11'acoumu latore la parola contenuta 
nella successiva locazione (B33B? cioè’' 

FF. 

Tale concetto e di fondamentale 
importanza 1 la CPU non può' sanare se 
una certa locazione di memoria contiene 
uri dato oppure una istruzione. S<* 
solamente (perche e' mi crebro granì mata 
in tale Diodo? che la par'O la di partenza 
deT pr ogramma deve considerar la coma 
una istruzione e continua 

\'e lavorazione con «uesto presupposto. 


$e infatti facciamo girare il programma 
da 033B anziché' da 033A# la CPU 
"pensa" che FF sia l'istruzione da 
eseguir© e va subito in 'tilt' perche' 
non esiste questa istruzione fra le- 151 
istruzioni del 6502. 


L'istruzione R9 e' una istruzione a due 
joyte# cioè'" quando la CPU legge A9/ sa 
che la locazione di memoria successiva 
contiene un dato e non una istruzione; 
caricato/ allora/ il dato FF 
rie 11'aceumulatore/ leggera' i l 

contenuto di 0 -ì3Cj che e oli/ 
istruzione# 'Queste volta# a tre byte. 

Una istruzione a due byte viene 
conteggiata ne l modo seguente : corri arido 
+ dato; cosi' simi Traente SD/Come tutte 
la istruzioni a tre byte., e' costituita 
da, : comando + dato + dato. 

Incontrando 8D la 6502 eseguirà'' i l 
comando trascrivendo il dato presente 
nel l'accumulatore# nella locazione di 
memoria i l cui indirizzo e' 
r appresentato # in esadecima le# dai dati 
contenuti nelle due locazioni di 
rn e mor i a suo c ess i ve a «tue l la con tenen te 
i l comando SD. 

In Parole un po' Piu' semplici la CPU 
scrive FF nella locazione il cui 
indirizzo e 1 ' S000 esadecimale. 

Attenzione ' il primo byte successivo a 
SD contiene la parte bassa 
de II' indirizzo <Lh= loai address> mentr-e 
la terza parola contiene la parte alta 
(HA=h i 9 fì addr ess >. 


Date che vegliamo scrivere il dato FF 
,che e' in accumulatore# _ nella 
locazione 8000 scriviamo SE 00 00 e non 
SE 80 00. Tale modo dì tare e" una 
caratteristica di tutte le istruzioni a 
tre byte che incontreremo : prima si 
scrive la LA poi la Hft. 

Dopehauer eseguito 1'istruzione SD la 

CPU incontra V istruzione 60 (istr* a 
un sole byte? equivalente al RETURN. 
Poiché' non e' stata chiamata alcuna 
subroutine si ritorna automaticamente 
al BASIC uscendo in tal modo dal LM. 

8u tale concetto torneremo piu' avariti.. 
tf£r ora basti sapere che se in un 
programma in LN c'e' un RETURN C£0>... 
in pìu'^ si ritorna al BASIC. 


Vediamo ora a che cosa serve i 1 
pr e gram m a ap re na es am i nsto L a me mor i a 
di schermo e' rappresentata da 1000 
locazioni di memoria (25 righe per 4è 
colonne? a Partire dal V indirizzo 3& 
90. Scrivendo allora FF in 80 SS# 


errarira' lisimbolo 


nella prima 


l-ocazione de 11 a ro e mor i a d i sche rmo ( i n 
alto a sinistra?. Modificando 
opportunamente i l contenuto di 333B e 
facendo rigirare il nrg. in LN faremo 
apparire nell'angolo in alto a sinistra 
tutti a. simboli grafici del PET* Si 















jeotrtobe obiettar* che- il medesimo 
ri V t$.to si p ote va ot+enere 

Eemp licernente mediante il BRSIC 



Ci o' e' verCv c'e^ da, f^re una 

prima considerazione : per far arrarire 
in LM il simbolo V abbiamo ufi lizzato 
solamente 6 byte.; con il BRSIC invece 
occuperemmo ben 10 byte senza contare 
che sì e' dovuto uti lizzare 
1" interprete del ER3IC impietrando molto 
tempo* La sostanziale differenza fra i 
due metodi si nota emendo si vorrà' 
riempir* tutto lo schermo con i1 
carattere desiderato. Con i1 BRSIC 
soriv eremmo, Per es em*>io : 



Eseguendo il programma si può" 
nettamente seguire il formarsi del 1008 
simboìi* 

Proviamo ora a caricare il Programma in 


LM che segue- 



ind.parx 


033R 

8342 

S34R 

8352 

835R 


108 I — 326 

118 READ fif : IF M=“-l" 
120 fll* = LEFTf£Ri,l> 

138 fi2S - RICHT:f<flf/l> 
140 IF fll*< IN fl H THEH 160 
158 RI* * STRiT0RSC<B1^>- 
160 IF Fi2*< ,fc fi" THEH 190 
178 R2* - $TR*tASC<fi2*)- 
130 fi = VflL(RlS) # 16 + 
280 POKE I,R = I - 1+1 
220 GOTO 118 
230 li&TR fi9,80, SDj 48,03, 
240 DRTfi 47 J 03^R9.FF,8D^ 
25© DRTfi 47, 03* D0,F6, fiD, 
260 IihTR 83,B0.01.60.EE, 
278 DATfi 44,03,-1 


THEN END 


55> 

VflLCfi2*> 


R9,80,SD 
00,80,EE 
48,83,C9 
43.93j4C 


d a-f i 


R9 90 SD 43 83 m 00 3D 
4? 03 fiy F F 3D 00 30 EE 
47 03 Ii0 F6 RD 43 83 C9 
83 Ii0 81 60 EE 43 83 4C 
44 03 - * , * , * *■ - - 


e-, SVS<826> ***** e-" sorprendente 

v er o ? 7 ? ! M 

..ma vediamo come gira : 



Alimentsriore 
r» r- L eva ta 
*yi ì r* t, it. a ni «a- n "L •& 
d sa l F* E T — CBM 


di R. Brazzpdu;ro 


Con suesto brevissimo art itolo 
vosi a amo superare, per chi ha #ia p 
una sia pur Modesta conoscenza . di 
hardware, il sistema Par poter 
prelevare una tensióne direttamente 
dal PET-CBft si fine di a l i dentare 
dèi piccoli circuiti elettronici che 
sono applicabili d t retiamenté al 
nostro computer* 

La tensione di ingresso per il 
nostro turcuito si Preleva dal 
grosso condensatore elettrolittico 
fissato sul telaio, (non saldato sul 
circuito stampato } r che seneralgente 
si assira intorno ai 25000 jjF di 
capacita 1 ". 

La tensione che e' sui presente e J 
di circa 3 Volt, 



lì circuito che proponiamo dovrà' 
essere applicato direttamente ai 
capi del condensatore* In pratica il 
piccolo condensatore di filtraSS io 
che noi a 3 fi i un seremo viene 
moltiplicato per il guadagno del 
transistore (sudisiasi tiro NF'N di 
potenza) che verrà' usato. 

Se il circuito alimentato da auesta 
rea lizzaz ione fosse un amplifi¬ 
ca tor ino . potrebbe accadere che 
dall'altoparlante escano dei 
disturbi? in suesto caso sara' 
sufficènte porre in Parallelo 
all 1 a l imentazione un condensatore da 
circa 100 nF* o valore similare, par 
eliminare completamente il disturbo* 
Per concludere e' bene ricordare che 
la massa del telaio non t’ la Massa 
dei circuiti del PET-CBfl, quindi per 
maggior sicurezza collegare la mas¬ 
sa dei circuito utili zza tore con la 
Massa del telaio con un altro 
condensatore da 1QQ nP, 


























REMarks. 

333fì R9 80 Ne U'accumu latore _ viene 

scritto il numero 3© (in 
ottetti viene scr itto i l 
numero fc>i n ar i o puro 

1000 0006 e non ripeteremo 
p-iu' 'Questo concetto)» 

933C 3D 43 63 II calore ora presente 

ne \V acc umu l ato re (SCO ci ere 
riportato cosi' come e' nel' 
la locazione 33 48» Rtten - 

z i one che ne 11 * acc umu lat ot e 
e' ancora presente 30. 

J333F h 9 00 Nell-acc, viene ora scritto 

66 cane#1landò il prece- 
dente 86 J naturai meri te ciò' 
che e'' stato scritto in 03 
48 non viene modificato* 


0341 3B 47 63 Vedi istruzione 633C. 

0344 FF Vedi istruzione 033R oppure 

033F* 

0346 SB xx xx I due srm&pi di xx stanno a 

significare che possiamo 
scrivere etualsiasi valore 
esadecimaleJ intatti quando 
in se-a u ito faremo partire i 1 
programma* le istruzioni 
033C e 0341 provvederanno a 
scrivere la parte alta e 
bassa del V indirizzo; a 
'Ciuesto punto dell'esecu¬ 
zione del programma appare 
in alto a sinistra i1 sim¬ 
bolo "V* che vogliamo tras¬ 
crivere anche nella seconda 
posizione* terza eoe.> tino 
a riempire tutto lo scher¬ 
mo» Dobbiamo Pertanto tare 
in modo da impartire 
l'istruzione 3E 01 80 e poi 
SE 62 80 . tino a 8D FF 
83. Per evitare di scrivere 
mil le istru zioni < quante so¬ 
no le ce Ile del lo schermo > 
utilizziamo un loop Cfisu 
3), 


INDIR, 

ESP 

OP, ! 
COD» 

MNEMONICO 

033R 

R9 

LBRfr 80 


033B 

36 



033C 

8 D 

STR 0343—— 


033D 

43 



033E 

03 



033F 

R9 

Lini# 06 


0340 

00 i 



S341 

SD 

STR 6347- 



0342 

47 




0343 

03 




0344 

m 

LDR# FF4- 





@345 

FF 






034É 

SD 

STR 3006 





0347 

60 

4 - -1 





0348 

30 

4 - 




6343 

EE 

INC 0347 



034R 

47 




S34B 

03 




034C 

Ej 0 

BNE—- 



034 D 

Fé 




034E 

AB 

UBA 6348 



034F 

43 




0350 

03 




0351 

C3 

CMP# 33 



0352 

S3 




0353 

D0 

BNE-- 




0354 

61 





6355 

30 

RTS 




0358 

EE 

INC 0343*— 




035? 

48 




0353 

03 




0359 

4C 

JMP 6344-- 



035A 

44 



035E 

03 




0349 EE 4? 03 Questa istruzione (EE) 

aumenta di una unita' il 
contenuto della locazione il 
cui indirizzo e' 9347= da 66 
passa a di * oppure Quando 
sara' contenuto R3 passera' 
ad R9 oppure (importante) da 
FF a 60» 

034C D0 F6 L'istruzione ’D6 e' una 

istruzione a due byte ohe fa 
parte delle cosi' dette 
istruzioni di BftflNCH (salto 
condizionato)* Arrivati a 
atuesto Punto* i l Prose- 


Fi sur a 3 


suimento de 11 e lavorazione 
dipende dal risultato 
de 11'u Itima orar-azione 
effettuata» Nel caso speci¬ 
fico se EE 47 93 fornisce un 
valore uguale a 00 l'istru¬ 
zione D0 viene ignorata ed 
i 1 programma prosegue con 
l'istruzione successiva 
(034E-)» In caso contrario la 
CPU legge il primo bit del 
secondo byte dell'istru- 






















034E 

* 


zione Ct ig, 4 ; illl 

èli0> e se esso e' 0 
eseguirà' un salto in 
avanti mentre se e'' ì 
C nostro oaso> tar a"" un 
salto i nd i e tr o. P er 
salto si intende i l 
numero di Parole (e 
pi o di i s t r- uz i ori i > 
che bisogna escludere 
p er r i nt r ac c i ar ■ e la 
successila istruzione 
da eseguire* Nel nos¬ 
tro caso la CPU esegue 
un conteggio alla nove- 
scia partendo 

dalì'istruzione succes¬ 
siva a B0 <034E‘> 
desinandola come FF. In 
seguito va ain¬ 
dietro tino a che arri¬ 
va al numero contenuto 
nel secondo byte dì D0, 
cioè' Fé/ oorris:- 0351 

pendente a 11 ' ind* 6345. 

Il p r ogr am ma, a l lor a , 







0344 

03 




0345 

FF 



F6 

■ 

0346 

8D 



F7 


@347 

m 



F8 


0348 

80 



F3 


0349 

EE 



Ffl 


034R 

47 



FB 


034B 

03 



FC 


034C 

m 



FÉ 


034D 

F6 

1111 

0110 

FE 


034E 

RD 



FF- 


034F 

. * 

m * i p 

■* - - 

■ * 

■ * m m 

0353 

Ìj0 

■ ■ v » 

■ * p 

w m 

0354 

01 

yyyij 

0001 


0355 

80 



01-—i 

0 3 56 

EE 



02 i 

035? 











Figura 4 


C9 33 Questa istruzione a due 
byte compar a, mediante 
sottrazione, l'accumu- 


continvera' ad essere 
eseguito dalla 

►=' ar - o la succes— 
s iva (sempre a.11' indie- 
tro> a 0345 e cioè' 
0344 Bisogna per¬ 

tanto prestare la mas¬ 
sima attenzione al se¬ 
condo byte delle istru¬ 
zioni di BRfìHCM per¬ 
che' j in caso di er¬ 
rore, potremmo far 
continuare il pro¬ 
gramma da un dato anzi¬ 
ché' da una istruzione 
oppure da una istru- 
z i one indesider at a, E' 
ovvio che nelle loros- 
s i m e p u ntat e amp l i - 
e remo onesti con catti; 
Notiamo taci Imente chi e 
il blocco di istru- 
z i o ri i 6344-034D sar a ' 
eseguito 255 uo Ite ti j 
no a che cioè' 0347 non 
conterrà' 00 consen¬ 
tendo alla CPU di igno¬ 
rare B0 Fé. Ogni volta 
che il blocco viene 
eseguito lo schermo 
viene riempite di 258 
simboli di IJ %”. Poi¬ 
ché' lo schermo e' di 
1000 caratteri il bloc¬ 
co eie ve essere ese¬ 
guito <uias i oiu at t r o 
uo 1 te * Vedi amo corri e ■' 

AD 48 03 C ar- i ca 1 n àceumu l at or e 
i l dato contenuto in 
0343. 


latore con il numero 
esa 33; se i duo nume¬ 
ri risu 11 ano ugua 1 i 
tor n i r a' 60 corri e r i s u 1 - 
t ato < atten z i on e ] 

l'accumulatore non vie¬ 
ne corriu n otu e * mo diti c aio 
ne' tantomeno 1 1 nume¬ 
ro esa S3>. 

0353 D0 01 In -westo caso, a dit- 

terenza di 034C, il 
primo bit del secondo 
byte e '0 < + is, 4) e 

pertanto nel caso in 
cui il risultato della 
com p ar az i orie 9351 se¬ 
ra' uguale a @8, sar a' 
saltata una parola ed 
i l programma conti¬ 
nuerà' da 0358. 

0355 60 Return subroutine: si 

esce dal L.M, e si 
ritorna al BASIC. 


tì356 E E 48 63 Fi stuesta istruzione 

<vedi 0343) si giunge 
se 1 l risultato della 
comparaz ion e 0351 1ndi- 
cache t'H.R. di 0346 
(cioè' 3D 47 ) non 

e' ancora Passato al 
valore 33, cioè' se 
s i amo ano or a ne l \ a 
m em or 1 a. d i so hermo. 

R 1 ep i lo gand o, il hi oc- 
CO @344-034ti viene 
eseguito 355 volte men¬ 
tre 0344-0359 vie rie 
eseguito 4 volte prima 
di ritornare at BASIC 










0359 4C 44 03 istruzione di salto 

incondizionato- la 
continuazione del pro¬ 
gramma passa a IV is¬ 
truì ione contenuta in 
0344. 



11 lettore potrai wra- 
la y&lidita' di 
ctuesta routine in 
linauseaio macchini in 
precedenza caricata* 
con il programmino «Ufi 
sopra suggerito. 


— — — Hate afe ^—-— —— 5*e 3^1-4 ife afe — 




■— — —mmwmm — 




5 0PEN6>4 J 6 PRINT#6,CHR$C13> : CL0SE£ 
10 0PEN4/. 4 : CMB4 


100 
110 
120 
130 
140 
150 
160 
170 
180 
1 'j 0 
200 
210 
220 
230 
240 
250 

269 

270 
300 


Hl$= 11 

fl3$=" 

fì4*= if 

R5S=" 

m^ u 

071=" 
fib$= " 

fì9*=" 

BU= H 

E2#= SJ 

B3$=" 

É4*=” 

B5$-" 

B6$=" 

B7t-" 

E8f= J1 


1 zi 

il 

» 

1 3 

wr*zi 

SE 1 

1 ti 

w ▼ 
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*r zrms sriÈ ^ 

! 

la 

^ /w W 

■ ! M 

id 

\zrm \W ! 


13 

■r ▼x ^ 

ir 1 

\:ì 

gr ssr^i--- a W^s ST^y 


13 

^8 

■ P 11 

id 

^ \aF ^5 vS^"^ 

i zr 

13 

^ sr\ ^ 

m \ n 

|:J 

■r srm sr^S ^d 

i 

13 

^ ▼ /w zr 

ir 

1 u 

'm zm ar 

ìi 


BI 


11 


l zi 
la 


il" 

SI' 

j ^ 


In Cine swesto ai«- 
bolo raprreienta le 
tortane* 

Il ero irino pro¬ 
posto esegue* rer chi 
hs le sterpante 3022* 
la figura in ai’ 
Setto. 

Cific«lUndD le rlshé 
5 t 10, 330 a 400 II 
simbolo app*rlra r 
sullo scherno. 


PRINTRlf PRINTR2f FRINIRSI PRIHTft4f : PRJNTHSS 
310 PRINTflà? PRINTft9* PRINT80$:PRINTB1*-PRINTB2* 
320 PRINTE5#:PRINTB6*=PR1MTB7$ : PRIMTBS* 

330 PRINT#4 : CL0SE4 

400 0PEM6>4.6PRIKT#6.CH(^^24>CL0SE6 


PRINTASAFRINIR?* 
PR1NTE35 : FRINTE4I 






















100 EEH m E3PRN5I0NE mTB ** 

ne primi 11 n M 

120 INPUT“MHHDRTR IN FORMA GGNMRh 1 ", BHt 

133 FORI = lTOé - EFA*< II 0 H 0RR*>' I 9 II THEN120 

14G HEXT• Mn“VRL< fi IM < Dfì$ j 3*2'» IFMM>i2DFd1M=0THENi20 

150 GENFEBMRRRPRMflGGE ULUGfiGOSE TOTTN0 VDIC"jMM*3/3) 

160 tiR$=LEFTÌ<3 )RSj+ " ,f +NHI+ ,r l9"+i11 D*<DR*-■ 5,2> 

170 PRIKT:PRINTDR^ 

1S0 ÙOTO120 


Questa routine e" stata studiata Per 
trasformar© una data dalla torma 
numerica alla forma estesa ; 


da 010431 a 01 fìPR 1931, 


Norma Intente^ infatti., per risparmi are 
spazio e tempo ne \ V introduzione dei 
dati ne ì computer/ conviene esprimere 
una data u+ilizzando esclusivamente dei 
numeri che indichino il giorno/ il mese 
e Iranno; e' preferiti le/ invece/ sta 
per motivi estetici che di chiarezza 
dei tabulati., ottenere la stampa delle 
-date in formi a p i u' chiara e comp lei a. 
Si rende -quindi necessaria «questa 
routine per effettuare le trasfor¬ 
mazioni desiderate senza creare pro¬ 
blemi all'operatore. 

RI momento del V inserimento in un 
programma, «meste istruzioni potranno 
essere limitate alle sole righe 
130/140,150 e 160, 

Se un controllo di numericita' o 
comunque di validità 1 ' de 1 V informazione 
fesse gìa/ stato eseguito/ allora anche 
il ciclo di FOR.,.NEXT contenuto nelle 
righe 13® e 140 potrà' essere 
e liminato. 

Da una brave analisi risulta evidente 
che le vari ab i li chiave per 

o. 


l'espansione del mese siano MM e MM$- 
MN ■iriga 140) sara' uguale al valore 
delle due cifre che nella variabile 
introdotta indicano il mese 
<MID$<DR*-.3, £> ). 

hM$/ invece/ sara' uguale a tre lettere 
opportunamente selezionate dalla lunga 
stringa di caratteri contenuta nella 
riga 150. 

Facciamo un esempio; 

Data = 120681 ' 

MM ; valore del numero formato dalla 

terza e quarta cifra,, quindi 

m = 06 

Mflt : sara' uguale a tre lettere 
estratte dalla stringa di 
caratteri che troviamo nella 
riga 150/ a partire dal 

carattere nella diciottesima 
posizione che corris¬ 
pondono a : GIU Cnon dimen¬ 

ticate di contare i due spazi 
i n i z i a 1 i ! ). 

^a risa 160 provvede ora a trasformare 
la variabile lift! nella forma definitiva 
desiderata che sera'; 


12 GIU 1381 


















—*-—-—-— -- - 

tee REM ********************* 

10 1 REM m ESPANSIONE HATA ** 

102 REM ********************* 

103 : 

ne DiMMfci 2 > 

120 FORI^UOlS : REflBM#n > : NEXT 
130 PR3NT ”T 

140 INPUT"WKKDATR IN FORMA GOMMAR";DA* 

150 FORI=lTOG : B*=MID$<Dfl*, 1 , 1 > : IFfl*<"0 l, 0Rfl*>"9 H THEN140 
1 60 NEXT : I =VRLCMID*(Bfl*,3,2) ) ■ IFI> 120RI =<0TH£N 140 
170 Dft*=LEFT$(Dft*,2>+" N +M#n> + " 19 JJ +MID$ CflR* , 5, 2) 

180 PRINT PRINTDR* 

ISO GOTO140 

200 DRTAGEHNRIG,FEBBRR10>MARZO,APRI LE 

205 DRTflMAGGIO,GIUGNO,LUGLIO,AGOSTO 

210 DATASETTEMBRE,OTTOBRE,NOVEMBRE,DICEMBRE 


Questa seconda routine prevede 
t/espansione completa del mese, e non 
La sua abbreviazione* 

I nomi dei mesi sono stati per-taiìtc 
riportati come DATA nelle ri^he 


200 e 210- 

La variabile MM viene ■stui sostituita 
dalla variabile I, mentre MÌCI) 


corrisfonderà' al mese prescelto* 

Nella Parte iniziale vendono date le 
i s-' truz i on ì pe r c ar i c ar e ne 1 \ " oppo rtuna 
tabella i valori alfanumerici uei 
relativi mesi (righe 110,129). 

Valgono *4ui tutte le considerazioni 
fatte per la routine precedente» 



A volte, purtroppo, e' necessario 
scrivere dei numeri in sottoTorma di 
Lettere e ciò'' crea spesso dei Problemi 
poiché'' ci troviamo di fronte a parole 
^articolargente lunghe. Chi non ha mai 
avuto esitazioni nel compilare un 
assegno scagli la prima Pietra. 

Nei centri meccanografici <sueste 
scritte vendono eseguite automati - 
cadente su documenti, assegni eco. 
uti 1 izzando routine® alquanto 

complesse. 

Anche il nostro buon PET può fare 
tutto cio^ e per di Piu' con una 
routinetta che,- al confronto di (Quelle 
dei grossi centri meccano^raf ici > 
risu Ita p iu / sera®lice e piu" br e ve 
(confronto CQBGL/BftSIC). 

In particolare questa routine che 
propon iamo consente 1 " es p ansione in 
lettere di tutti i numeri compresi tra 


10 -zero- e -novecento novanta nove 
mi li ardi novecento’ novanta nove mi li ori 
novecento novanta nove mi la novecento 
novanta nove- 

(pausa p er tirare il respiro). 

Si cercato di utilizzare i1 minor 
numero di IiAThL sfruttando la 
possibìlita^ di combinare oppor¬ 
tunamente determinati elementi fonda- 
mentali contenuti nella subroutine 
eriche 420-550). 

11 problema, infatti, e" di Poter 
contare' fine a 339 i il numero 

393 .999.999. 999 , ad esempio, *■' 
composto dalla parola 
-n o v ec e nt ono v ant ano v e- 
ripetu ta -bhì attro volte, cori la semr lice 
a#iy i unt a delle par o le —rii. ili ar d i -.. 

"milioni- e -mila-. 









10 REM #*#*###****#*#***#******** 

15 REM #** ESPANSIONE NUMERI #** 

20 REM *** ROBERTO SOZZAMI #M 

30 REM W* POCKET GROUP 1931 #** 

40 REM #f*$^*#****##**###*##^^ 

50 FRI NT 11 IT 
60 DIM UU*a3> 

78 FOR 1 = 1 TO 19- RERIi UUtCD- NEXT 
90 FOR 1-1 TO 95 READ DD* CI): NEXT 
100 FOR 1=1 XQ 9 READ CC*£I>: NEXT 
120 U=0: D=@: C=0 
130 INPUT M ]fflP3MJJMEROS ", X* 

135 IF KS= l, 0" THEN PPINT^WEERO 1 '‘ GOTO 130 
140 LX=LEN<XS?- IF LX=12 THEN GOTO ISO 

150 IF CO 12 THEN 130 

160 &t= ita ■ FOR J= ì TO 12-LX Q$=Q$+" "■ NEXT 

170 XX*=Q*+X$ 

10:0 X0*=MID#<XXT, 10.3> 

190 Xi$=MIBfCXX$,7,3) 

280 X2S=MIDS<XXS,4,3> 

218 X3* =MIM C XX*, 1,3) 

220 fì=VHLCX3S> : G0SUB42©; ME*=F* 

248 A=VALCX2S) : G0SUB426 ML*=F$ 

269 A=VAL(X1*)- GGSUE420 ; MG*=F* 

238 A=VALCX0$>: GOSUB420: MC*=Ff 

308 IF riD$="ll-INO , ‘ THEN MD*="UNM ILI ARDO" GGT0346 

310 3F MD$= "IFlTTO“ THEN MD$=" n +NB* 

32G IF VAL<X3*>>0 THEN nBM"lBf+ <, HILIARDI" 

330 IF ML*="IIQTTG" THEN ML*=" " +ML* 

340 IF MLS="IUNO" THEN MLS= ,, UNM IL IONE "= GOTO 360 
350 IF VAL<X2$»0 THEN ML*=ML*+"MILIONI " 

366 IR MGf="HLiN0 11 THEN MG*="MILLE" - GOTO 390 
370 IF MG *="MOTTO" THEN MG t=" "+HG# 

330 IF VAL<X1S)>0 THEN MG*=MG*+ < 'MILA" 

390 IF MCS=”IUNO" THEN t1C*= ,J "+MC* 

40O IF MC#= "MOTTO" THEN Ml;S=" ‘’+IIC# 

410 PRIMI- PAINI ms +ML*+MG*+tC*- GOTO 120 

420 U=0 : B=0 : C-0 : F*=" u 

425 IF h=8 THEN RETURN 

430 IF A<2@ THEN NU*=UU*<B>: GOTO 508 

443 LR=LEM<STR$CR> > 

450 Uf=RIGHTtCSTRSCR>> 2> ■ U=VAL<US> 

455 IF U<20 THEN 438 

460 LI*=RIGHT$ C S TR$ i fì >, 1 > : U=VRL C US > 

470 DS=MIDSCSTRSCF>,LA“1,1)= D-VRLCD*) 

438 CS=MIDS<STRSCR>,LR-2.1> : C=VAL<C*> 

430 NUS=UUS(U) 

508 NES-BDSC B> +NUS 
510 IF E=0 AND U=1 THEN 540 
520 IF H=0 RND JJ~3 THEN 540 
530 NCS^CCSCO+NDS GOT055B 
548 NC*=CC*<C>+" "+MU# 

550 FS=NCS RETURN 

560 BfìTA"HJNO",DUE,TfiE>QUATTRO,CINQUE,SEI,SETTE 
565 DATA" II0TTO M < NOVE, DIECI, ONDI CI, DODI CI, TREDICI 
578 EATAQURTTQRDICI,QUINDICI,SEDIO I,DICIASSETTE 
530 DATACICIOTTO,DICIANNOVE 

598 DflTADIECI,VENTI,TRENTA,QUARANTA,CINOUANTA 
600 B ATflS E SSANTA, SETTANTA, OTTANTANO V AH T A 
610 BATACENTO, DUECENTO.. TRECENTO 
615 DATAGURTTPOCENT0,CIMGUECENT£LSEICENTO 
620 DATASETTECEHTÙ,OTTOCENTO,NOVECENTO 


II programma può 1 ' essere 
scomposte In cinque parti 
principali 


r i ghe 


commento 


60-110 Lettura ed inseri¬ 
mento in tabelle dei 
DATA, per un totale 
di' trentasette ele- 
menti, 

130-210 Input della varia- 
fai le X# e trasfor¬ 
mazione della stessa 
in una variabile di 
dod i c i e lem eri t i con 
succ ess i va scoti - 

posi z i un e in o*uat tre 
sottovariabi li CXOS, 
XIS, X2S, X3$>, di 
tre eifre c iasouna, 
che ve rr anno aria li z- 
zete dalla sub- 
routine, 

300-410 Trasformazione della 
variabile in OUTPUT, 
con l e ve nt uà le ag - 
g i un t a delle p ar o le 
-miliardi* milioni- 
eco, rispettando 

V esatta sintassi (in 
par : t i co lare i numer i 
uno e otto creano 
■;iual che pr ob le m a ), e 
stampa finale, 

420-558 Subroutine in erario 
di ' letifere f fino al 
numero 993, e cuore 
de l programma stes¬ 
so. 

Ogni gruppo di tre 
cifre viene ;uui ana¬ 
li zzato per su bire 


un a Pr ima es r ari - 

sione* 

568-628 DATA 

Queste cinque parti potranno 


essere inserite in un pro¬ 
gramma di stampa che neces¬ 
siti in un momento de 11''ese¬ 
cuzione V espansione di un 


numero. 

Non pensiamo di dover spie¬ 
gare riga per riga ■questa 
routine.: riteniamo che chi 
abbia una si. a pur minima 
coriosoenza di programmazione 
in BASIC possa capirne il 
funzionamento dopo una breve 
lettur a delle v ar ì e i stra¬ 
zioni che la compongono, 

X 


- i*E*EH*t*e — — 


- **M*e+™ 











sche-r -imo 


tii Roberto Soszani 



I RÉM ** ROUTINE INVERSIONE SCHERMO #* 

3 REM ^j|^#####^**^#¥****^*****#**** 

4 ROP m=326 IO 858 

5 READ B 

6 POKE R.B 

© DfìTR 169,128,141,74,3,141.77,3,160 

9 IiftTft 4, 162<y, 169, 128,33, ®, 128,157 

10 DRTfì 0,128,232,203.245,238,74,3.238 

II BflTft 77,3, 136,208,236,86 
12 fl=0:£”0 


termine 

i 1 


Questa breve- routine si rivela uti le in 
tutti otuei essi in cui risulti 
necessario "reversar e" lo schermo* 

Che cosa si intende con il 
11 re ver sare " 7 E’" presto détto- 
Sapraime oramai tutti a cosa serve 

tasto di RV3 e OFF-RVS, il tasto cioè 
che ci Permette di porre una stri risa 
alt anumerica su video ir, negativo o m 
positivo* 

Ma se volessimo porre tutto lo schermo 
video in negativo,* tutto ed in-uri colpo 
solo, in un batter di 


ciglia. 


la 

faccenda diventa impossibile 
volesse utilizzare il linguaggio ERbiL. 
Entra quindi in gioco i l li rifusa io 
macchina che ha proprio la prerogativa 
della velocita e la sintesi di 
i struz ioni. 

Non voglio in queste ri ohe ìntret- 
tener vi con comp licate spiegazioni 
delle istruzioni , del linguaggio 
macchina, ma accettiamo cosi' coreie e 
la routine ed utiliziamola nel migliore 
dei modi. 

Una volta caricata, i1 vero e proprio 
programma in LM risiede in una zona di 
memoria ohe normalmente non viene 
toccato da altri programmi o seguenti 
caricamenti- 

Un cornar,do SVSCS26> e' suf+icente per 
ottenere inversione di tutto ciò' ohe 
p ~ & ■= ent e in "tue 1 m om ento sullo 

schermo. 


FtUora con semplici istruzioni e ros 
sibila far lampeggiare lo schermo 
quante volte voglialo o necessitiamo al 
fine di ottenere efficaci effetti 

Penso. ' d'altro canto ohe un "PETtaro lo 11 
degno di questo nome non abbia bisogno 
dì suggerimenti su come poter 
utilizzare cresta routine. 

Le righe proposte possono essere natu 
Talmente inserite in un qualsiasi 
programma. Per questo scopo sì carica 
cerne primo passo la routine e quindi si 
potrà' proseguire con lo scrivere i 1 
proprio programma cominciando, come e' 
conseitudine, dalla, riga 100* 


Vediamo riga per riga cosa succede' 


Riga 1.2 e 3 ■ hanno il solo scopo 
estetico di presentazione. 

Riga 4 : inizia il ciclo di FOR...NENT 
ohe parte proprio con un numero oorris^ 
pendente alla locazione di memoria 826. 
Come e' stato già' détto la routine 
risiederà' proprio in una locazione di 
memoria ohe normalmente non viene 
utilizzata, quella relativa al buffer 
della seconda unita' a cassetta, che 
appunto inizia dalla 826* Le celle di 

















Me mor i «o nece-ss ar i e s ar ann a sol amen t e 33 
e quindi il numero corriamo ri derìde alla 
cella finale sara 1 ' nr op rio 85S- 
Ricordo ancora una wolfa che una volta* 
caricata^ questa* routine resta in 
memoria fino a quando non si snetjne il 
FET o fino a quando non si uti lizzi il 
secondo buffer per altre necessita'■ 

Pitia 5 ; Comando ER5IC di lettura dei 
dati riportati nelle righe DfiTFI, 

Riga 6 '• questo comando provvede a 
sistemare i singoli uà lori man mano 
letti nel buffer- La prima vo Ita sera' : 
POKE S26,196 ; noi PGKE 827,128 
***** fino a POKE 858,98. 

Ri-ua 7 : chiusure del ciclo FOR...MEXT, 

Righe 8,3, 18 e il : ERTA,. E' relenco 
completo delle istruzioni in li usuasi- 
aio macchina espresse in assoluto che 
ci permetteranno 1'inversione dello 
schei- mo - 

Riga 12 ; RI la fine vendono azzarati i 
calori contenuti nelle variabili 8 e E. 
Questa precauzione risulta necessaria 
solamente se le medesime variafri li 
siano presenti nei programmii ai quali 
si aggi un :<e la ' r out ì n e. 

Ma vediamo come si usa in Pratica, 

La. semplicità"' ch'uso e' addirittura 
banale : una volta eseguito i1 comando 
eli RUM la routine viene memorizzata e 


c iu i nd i Sara ■ soffi cent e i nser i re ne l 
punto prestabilito del programma il 
comando SYS<326) rer ottenere corr^ 
r i su11ato 1' i nver s i ore d l lo se hermo, 
nd esempio 


100 SV3C326> 

110 FOR 1=1 TO 508 
1.28 NEXT 
138 SVSC826) 


Il risultato che otterremo con queste 
istruzioni sana'' quello di vedere lo 
schermo rer circa mezzo secondo in 

IWttfbe - 

Un altro effetto Potrà"' essere 'quello 
d ì f ar 1 sin r e n i* i ar e il vi dee per d i eo ì 
vo l te. Vediamo come 



Cove la variati le K conterrà' un valore 
massimo rari a! domo del numero dei 
lariitae-agi che vorremo ottenere e dove la 
variabile I serve per regolare la 
ve ì oc ita - ' de 1 Iamno. 

Che altro dire Sbizzarritevi ! 


- **H*ee+e —^— — —— —■ — —— 


Il latte* far bene 

ovvero 

ba gest ì one delle a t a1 l* da latte 

Molti di noi si ricordano luesto famoso slo4an legato alla faiosa Anita. 

Sono andato a visitare una aziende Produttrice di latte ed ero partito con 
l'Immagine nella mente di quelle stalle che da bambino avevo visto campagna- 

Casolare, aia» polli, anatre» cene e stalla Piuttosto oiiorosi, 4 , si rnsosima un 
ambiente contadino tome esisteva una volti e che os#l non e' fatile trovare, 

033r le cose sono cambiate, le mucche» riaccordo sono ancora fette di cerne ed 
ossa, ma tutto l'abbiente ha un rotore diverso, moderno ed e' proprio una parte 
di Questa Modernità' che sono andato a toccare con Mano. 

La ni a visita era dettata da II f i interesse dì veder il sistema PET-CBft ch-a 
funziprava con una procedura, presentata allo scorso SKAQ* che provvedeva alla 
bestione automatica di una stalla da latte. 

Gli scopi principali eh* la procedura si prefisse non riguardano esc 1usivanente 
la produzione del latte, ma anzi seaue una situazione generale tanto da tenere 
sotto controllo o3ni caro di bestiame con ben 56 dati di base (codice, nascita, 
gravidanze, produzione acc»>. f 

Il pacchetto di Programmi e" in sredo di (estìre in tempo reale tutti suesti dati 
e fornisce innumerevoli ed utili informazionì« 

Il costo generale del sistema risulta, come per oltre applicazioni, «treatment** 
basso tanto che {"approccio uomo, con le sue necessita"» e computer e F veramente 
a portata di ognuno. 

Questa procedura e' stata studiata da uro dei gruppi software Issati alla Herdan 
e prevede una configurazione hardware composta dal PETCGrt 3032 con fldPP* disk 
3040 e stampante 6024 e si adatta ad una vasta fascia di utilizzatori! dall* 
associazioni di asricol tori ai col di retti e a tutti sii operatori del settore, 

& 












$u 1 numero zero di Pocket 
interessanti comandi di FEEIO 
Vo^1iamo continuare ancora su 
soluzioni del medesimo tipo e 


PET abbiamo roport^to 
POKE e di SYS, 

■:iuesto ti Ione preponendo 
, . , vediamo.-.* 


alcuni 

altre 


comando 


Cosa accade se 


ri su Itato 


pfiINT PEEK (50003)♦..*,, 


POKE 59458,82 


, 1 se i 1 PET in possesso e 1 ' provvisto di 

nuove ROM'* 

g se il PET- in possesso e' provvisto di 

vecchie ROM's 

velocizza fediteli schermo, aumentando la 

# velocita' normale di ben 3 volte. E 
tenere presente che nei nuovi modelli 
PET/CEM serie 3080 Qiuesta POKE non puc 

essere usata in quanto questa locazione di 
memoria non prevede questo comando. ji 

ve lesse tentare usualmente il risultato 

sarebbe quello del blocco completo dei 

sistema. 


POKE 59458,3® 


ripristina la velocita 
schermo al valore nominale 


di 


edit di 


SYS (64721> 


System reset (questo comando simula 
spegnimento e la riaccensione del computer) 
£per i PET con vecchie RQM's per ottenere _il 
medesimo risultato si deve eseguire SYS 
£64824)> 


SYS (5786r •*■»,*- 


tenera un comando eouu iva lente al CLEPP SCRFEN 


SYS (57943) 


= 1l?n ^r.H un comando equivalente al RuME CURSOft 


SYS (1024).. abilita il sistema MONITOR (TIM) solo Per PET 

con nuove ft>J M ■' s ■ 

r s ^| i>p licita'" questo comando ottiene il 
me d es i me r i su 11 e.t o d i que l lo pr edent e . 
Scegliete quello che piu' vi Piace. 



SYS £4> 












































Uri c. j/ ’fce-r e- T lo scher mo 

La scrittura su schermo di uri carattere ouualurKiue dei set di 
caratteri ASCII o simboli grafici * in una locazione specificata 
da 11'u t en t e, si può ' f ere con una semplice f or m u lette c he 
e tenerii amo oyji ' di seguito' 


■I— 


POKE Fi+C C V— 1 >*<4© > -hX — I .* C: 


Si puo / impiegare oiuesta formuletta anche come sub routine; per f ar¬ 
ereste si aggiungerà' -RETURN- doro la lettera u de ila POKÉj 
tenendo nero' presente che bisogna prima definire i parametri 
Fi > V _. X e C al fine di ottenere un giusto edit sullo schermo* 


Parametro Fi 
Parametro V 
Parametro X 

Parametro C 


- Prima locazione della memoria di schermo ( 32768 ). 

= Piaa che si vuole stamp are il carattere desiderato, 

- Colonna che si vuole stampar- e il carattere 

desiderato* 

= Valore ASCII del carattere o simbolo grafico che si 
vuole stampare, 


Si può' anche definire il valore di C usando il seguente metodo; 
C=fìSC ( " # 11 > ; in eiue sto sern p [ ì ce esempio il car attere ast er i È co 
verrà' stampato sul video nel punto specificato in precedenza 
dalle variabili V e X. 


————— 


F'-=vai i nei Z@r o 


Il microprocessore fe>502, che viene utilizzato dal PET/CBM, 
utilizza il prime K di memoria per particolari funzioni richiamate 
dal sistema operativo. 

Queste prime 1024 celle di memoria si suddividono in quattro 
parti, chiamate pagine. Ogni Pagina quindi si divide in 256 celle 
di memoria. 

La 6502 controlla, nel PET/CBH, 256 pagine, d'alta pagina 00 alla 
pagina FF. 

256 pagine rer 256 celle di memoria uguale 65536; cifra che 
corrisponde esattamente ai 64K (64 x 1024) che la 6502 può' 
contro 1 lare. I primi 32 K costituiscono 1 a memoria RAM <par te 
dedicata all'utente}, mentre i seguenti 32K sono dedicati al 
sistema operativo Firmware (ROM). 

In ciuesto numero di Pocket PÈT abbiamo pensato interessante 
riportare per inter-o tutta la pagina zero di memoria e quindi sui 
pressi m i numer i P ubb l i cher emo oiue Ile al tre Pag i rie che p q tr anno 
essere di sicuro aiuto per- chi soPPrattutto si vorrà' addentrare 
rue 1 cam pò- sofisticatc vicino al 1 i ngq%ggio macchina. 
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PET & CBN 2001/3032 
di Massimo Rossi 



Sul numero zero Pocket PET, abbiamo 
accennato come poter mettere i l yostro 
computer in dirado cii. produrre suoni. 

Sa la cosa ui ha interessato, aurate, 
senza dubbio, provato a co negare il 
yostro PE T/CBM ad un ani p litio atore > 
tramite i Piedini M e M della 
USER-PORT - 

Se tutto e - ' andato bene, dal \ aIte¬ 
rar lente d e l vo stro smP liti catc-r e, s a- 
ra"' uscito un suono 1 la voce del vos¬ 
tro computer. 

Se al contrario avete avute gualche 
difficolta', allora, di certo, la 
Harcten, messo tutti i suoi riven- 
ditori autorizzati, ha quello ohe +a 
per voi un ampliticatone studiato 
aaopogi temente per 1 l PET/CBM, dotato di 
i nterru tt o r e, di spina di ali men- 
tacione, di connettore speciale per la 
ÙSER-PORT, di sria luminosa di OH-OFF e 
di regolatore di volume <non Piu bam¬ 
bini svegli di notte, mogli o madri 
iraconde.. 1 ), Il tutto e y racchiuso in 
un elefante contenitore di celare ne¬ 
ro- denominato MUSIC BOX, 


Per i PETaroli che si interessano di 
musica, e ohe, comunque, vorrebbero 
dotare i loro programmi di effetti 
sonori o musicali, abbiamo creato ques¬ 
to semplice prògrammino, eh e li me t - 
tara/ in grado di creare 1 effetto da 
loro desiderato, e fornirà"' loro, 
l * es att a. coll ocaz i one -de ì POK E i n ter es¬ 
sati . 

Coloro che hanno già"" seguito sul nume¬ 
ro zero di Pocket PET, la rubrica 
PEEK & POKE, ci vorranno scusare, se 
ripetiamo, a. brevi linee, come si otti¬ 
ene la produzione di suoni dal PET/CBM. 
lìlcurii piedini della USER-PORT, sono in 
grado di fornire una tensione di +5 
Volt, su richiesta -del programma in 
BASIC. 


Un p ì ed i no i n rar t i co 1 ar e f or-ri i se e un 
segnale ad onda ciuadra, modulabile in 
frequenza. 

Quali sono, allora, i comandi che 
abilitino -questa uscita, e ^uali ne 
regolano la frequenza di emissione? 

E-" presto detto-' 


POKE 5946?, 16 abilita il modo musica, 
POKE 59466,V decide il range di 

frequenza. 

(V, da i a 255> 

POKE 59464,/ decide la Presenza 

da 1 a 255> 


€"■ molto importante ricordare che, se 
non si chiude i l programma con una 
disabi litazione della USER- P ORT , il 
computer non potrà" 1 registrare il rr-o- 
gramma, e vai rise hier ete di dover lo 
digit are ci i nu ove»» 


Quindi per aprire 
POKE 59467, 16 
POKE 59466,7 
POKE 59464 ,X 
Per chiudere- 
POKE 59467,0 
POKE 59466,0 
POKE 59464,0 



I1 Programma che vi proponiamo- vi 
domanda i.n -viale range di frequenza 
C MODE) volete lavorare* Una volta 
fornito ctuesto dato <un numero com¬ 
preso fra ì e 255), apparire-' sullo 
schermo la semenza dei valori dei 
POKE, che vi fornisce la nota che udì- 
r ete u se i re da 11 ,J a l to par lente » 


Se desiderate cambiarla, tenete pre 
muto i1 : 

tasto per aumentare la frequenza 
t ss to — per- diminuire 1 la f r e^tuenza- 









I! valore del POKE digitato sullo 
schermo, viene aggiornato simulta¬ 
neamente.. Ri lasciando 1 1 tasto pre¬ 
muto, la se'tuenza delle note, si ter ma 
e si staio i lizza sul Inulti ma nota rre- 
so e Ita. 

Se non colete terminare V ascolto, 
premete i i tasto RETURN, tutto si spe¬ 
gna ra’ automati cane ni e, ma potrete 
r i prender e rasce Ito, i n aument o o in 
diminuzione, a Piacere, premere di nuo¬ 
vo il tasto + o il tasto ”, 

Ricordiamo g h e se uo let e int err on per e 
i X programma, dovrete, necessari 

riamente, interrompere la nota con il 
tasto RETURN poi b leccare con i l tas¬ 
to STOP, 

Questo programma Potrà 1 '' esservi uti le 
non solo rer trovare ali indirizzi di 
POKE corrispondent i alle note ohe desi¬ 
derate, (basta confrontare 1-'uscita 

s o nera con «tua la issi s t rum e rito mus i - 
cale), ma anche per sperimentare gli 
effetti che si possono ottenere Gam¬ 
bi andò i l rariae di frequenza. 

Sta a voi ora scoprire nuovi effetti. 


REMarks. 

10 azzeramento delle variabili 
20 richiesta, del MODE 
SO richiesta di premere un tasto 
46 apertura USER-PUF:T 
56-7© test di tasto premuto■ viene 
stati ìito duale tasto e^ stato 
premuto e viene incrementata o 
decremeniata la serie agendo sul 
valore di N 

30-90 condizione di inizio e fine del¬ 
la serie : viene mantenuta la 
progressione alVinterno dei valo¬ 
ri compresi fra 1 e 255 
100 Produzione della nota 
ilS-140 edit del valore di POKE 
Ì5S se nessun tasto e' Premuto, ripete 
la nota precedente, e riedita la 
pagina precedente 

170-13S se il tasto RETURN CCHR*CÌ3>> 
e-' premuto, chiude la USER-FDRT. 



PRINT 1l lT i N-0 

INPUT"OLIRLE MOLE VUOI“,P 
GETfi*: rFflf= J ‘ " THEN46 
F0KE5S4S7, 16 : FÙKE53466, P 
IFPEEK(131>= t7TMENN=H+1 
IFPEEK<151>=3THENN=N -1 
l FPEEK(151)*27THEN176 
IFrK 1THENN-1 
1FM >25 57HENN=255 
P0KÉ59464,(256~N> 

FRINÌ" ^SPlelelrlPlprepiìKE 5 
FRI NT t|r #FOKE 59466 , aj ,P 
PRINT Jt W 

PRINT" T'OKE 59464,";256-N 
IFPEEKC151>=255THEN100 
GOTO50 

FQKE53467,0•P0KE5946S,0 P0KE59464,0 

GETRT • IPH^=" IJ THENl&é 

OÙTO40 

END 



7,16" 


Per concludere questo breve articolo “rumoroso" proponiamo alcuna 
routine*, ohe potranno essere inserite. Previa ri numerazione, ir. 
un «yalsiasi programma onde abbellirne di effetti sonori adeguati 
alle svariate esigenze di gioco. 






1 00 

110 REM**# 'MAZZA LA NONNA... *** 
120 F:£M# **#*###*#****##****#* **#*#*## 


i&0 f^m####****#**#****### 

Ì10 REM#** IiDGINGG *** 

120 REM******************* 

130 P0KE53467,16 

140 P0KE53466, 30 

150 F0RWZ=1T02G 

160 P0KE5S464.MZ 

170 NEXT 

180 PQKE53467,0 

130 RETURN 


10Ó REM***#*#**#************** 
110 REM*** GOCCIOLIMA *** 

120 REM*** ******************** 


130 F-59464 

140 R0KE59467 >16 

150 POKE53466,15-T=3 

1fey POKER,188 : FGRX=1TO20O=NEXT 

170 POKER , 251 : FORBITO 1G8 : NEXT = GOSUB250 

13=8 POKER> 251 FORBITO 188 NEXT 

£90 POKER.225 :FQRX=110268 : NEXT 

260 POKER>251:FQPX=1TO300-NEXT 

218 POKER j0 : F0RX=1T0158:NEXT 

220 POKEP,133:PORX=ITQ200 :NEXT rT=5B GQSUB250 

230 POKER,133 :FORX=1TD150 NEXT 

240 GOTO270 

258 POKE53464..0 - F0RX=1TÙT : NEXT : RETURN 
268 POKE53467 - 0 : F 0KE5946fe.. 6 : R0KE59464,0 
278 POKE59467..6-POKE53466,0-FGKE53464,8 
236 RETURN 


138 P0KÉ59467, 16 
140 POKE59466,45 
150 F0RHX= 1TQ255STEP2 
IRÒ P0KE59464 j UX 

170 NEXT 

180 POKE59467.0 
130 RETURN 


100 REM******************************* 
110 REM**# SCALA EU PIANOFORTE *** 

120 REM#***####************###***#*##* 

130 F0KÉ59467,16 

146 R0KE59466,15 

150 FGRR=0T0iO0STEP5 

160 POK E53464.R:X=TAH < R> NE NT 


170 FOR R=99TO03TEP-5 

130 POKE53464,F: X=TANCR> N EXT 

190 PO KE5 3467,0 -POKE 59466,0 : POKE59464,8 


200 RETURN 


180 

110 

150 

136 

140 

150 

160 

170 

180 

190 

20O 

518 

220 

536 

240 

250 

260 

57u 


REM*** PINO FONO *** 


108 

110 

120 

130 

146 

158 

166 

178 

isa 


REM*## CAMPANELLO *** 


P=59464 
PGKE53467,16 
POK E59466.i 15 
F0RJ-1TO5 
POKER,255 :FQRL-1T068-NEXT 
POKER>O'FÙRL=1TQ10O4RNB*1)*£@ NEXT 
POKERn 23 : FORL-1T060-NEXT 
POKER ■ 01 - F0RL= 1TO1001RNDQ )*20 : NEXT 


P=594€4 
PGKE59467,16 
POKÉ59466> 3 

FORL=1T050 - POKER,238 : POKER,251 :NEXT 
P0KE59467,8 -POKE53466,8■P0KE59464,0 
RETURN 


FORX=ITO180-NEXT 

NEXT 

POKE53467,16 
P0KE53466,63 

POKE P,255 : FOR L=1 TQ 506 ; NEXT L 
P0KE53467,0 :P0KE53466,0■FGKE534S4,8 
RETURN 


160 

110 

128 

130 

148 

150 

168 

170 


REM*## DESTRA E SINISTRA 


INPUT 11 TEMPO" ; D 
IFD35THEN136 
PÙKE59467,16 
P0KE59486,31 
NM=30#B 


1 00 reh#**************##****** 

110 REM*** FI SCHIACCIO #** 

1 20 r eh# * mm * *** ***** ******** 

130 F0KE53467,16 
146 PO K E554 66.' 13 

150 FORR= 185TOS0STEP-3 ■ P0KE53464, R : NEXT 
160 P6KE53464,0 : FORL=iTO206 : NEXT 
170 FORR=205TO 1 05STEP-3 : P0KE53464>R : NEXT 
180 FORR=105TO255STEP3 : FOKE53464,R ; NEXT 
190 RÙKE53467,6 : POKE53466, 6 : POKE594 64 , 6 
2O0 RETURN 


136 FORNZ=1T020 
130 P0KE53464,NN 
200 PQKE53464,NZ 
218 FORI=1TCD#100 : NEXT 
228 POKE59464,NZ 
230 NEXT 
246 POKE 5 346 ?, O 
258 RETURN 


**# 








im 

110 

12 ® 

13® 

wo 

150 

160 

170 

130 

190 

200 

210 

220 

23G 

240 

250 


R EM** ****** *** *** ***** * ** 
REM*** BOII1NNNGG *** 

D CTMÉ Jk ± A A A-± 'tk à-A- £-£^-4 A 

PQKE59467, 16 

P0KE55466, 146 

FORI=IT010 

FQRWY=190TG14®ST EPS 

P0KE594É4,WV 

MEXTWY 

FORUV=140TO100STEP-5 

P0KE594S4j WV 

HEXTWV 

PQKE59464,0 

FORX=1TO100:NEXT 

NEXT 

RETURN 


100 
110 
120 
130 
140 
150 
160 
i 70 
130 
190 
23u 
210 
220 
230 


REM**-* CARILARI ! ! 

RE N ***** ** * ******* ** ***** 

P0KE5S467.16 
F0KE59466.-15: 7=3 

POKER.. 255 ' FQRX= 1 TO 1 00 : NEXT : G03UB23® 
POKER^ 191 : FGRX -1 TO 100 ■ NEXT : 0031JB230 
POKER / 152;FORX=1 Tu 1 00-NEXT : G03UB23® 

R OKEP t 123-F0RX=1T0200 NE XT : GQSUB230 
POKER j 152 ; FORX-1TO10® : NEXT : T=G-GOSUB230 
POKER j123 FORX=1TO400 :NEXT 
P0KE59467,0 : P'0KE59466 .■ 0 : PQKE59464,0 
RETURN 

POKER > 6 - FGRX- 1 TOT ■ NEXT - RETURN 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 


REM* * * **** * *** *** ** *** * ** 
REM*** GOCCIOLONE *** 


P0KE53467 ,16 
P0KE59466, Si 
F0RNX=1T015 
FORNV=130TO160STEP- 
P0KE59464.NV 
NEXTWV,WX 
P0KE5946?,® 

RETURN 


100 

11 ® 

120 

130 

140 

150 

160 

170 

130 

190 

2®0 

210 


RE hi*** 


POLIZIA 


100 

110 

120 

.13© 

140 

150 

160 

170 

1 H 0 

190 

200 


REM* * ****** ************** * 
REM*** IMMERSIONE! *** 


1T0500 NEXT 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

24S 

256 

260 

273 

2 SE* 

290 


REM*** HAI PERSO! *** 


PGKE53467,16 
P0KE59466, 2 
FGRL=1T04 

F ORR = 100T O2553T EP40 
P0KE59464,R : NEXT ; FOftX 
FGRR=255T0l00STEP-4® 

P0KE534É4,R - NEXT : FORX=1TO509:NEXT 
NEXT 

RETURN 100 

110 
120 
130 
146 
150 
160 

P=59464 170 

P0KE53467,16 130 

P0KE59466^15 1 Qi 0 

T =2 

POKER/23?:FORX=1TOSSO*T-NEXT-GQSUB280 
POKER,237 :FORX=1TO200*T;NEXT;GDSUB230 
POKER/ 237- FORX= 1 TO 1 60*:T : 

POKEP> 237 r FORX=1T030@*T 
POKER,193 : FDRX=1TG300*T 
POKEP,21 1 ;FORX=1TO2O0*T 
POKEP > 237 : Fp!iRX= 1 TO 1 00*T 
POKER/237^ FùRX- 1 TO200*T 
POKEP j 251 FORX= 1 TO 1 00*T 
POKER,237 :F0RX=1TO300#T 
POKER,0 

POKER,0■F0RX=1T05■NEXT: RETURN 
RETURN 


P0KE59467,16 
PO KE5 94 66 ,9 
FQRL-1TQ10 
FORR=250TO1SOSTERAI 
P0KE59464, R 
NEXT;NEXT 

PUKE594S7.0:P0KE59466 ,0 :P0KE53464,0 
RETURN 


REM*** BOMBARDAMENTO *** 


100 

110 


NEXT-00303260 
NEXT QO3UB230 
NEXT G03UE286 
NEXT■GOSUB280 
NEXT•GQSUB230 
NEXT:OOSUB230 
NEXT■GOSUB230 
NEXT 


P0KE59467,16 
P0KE59466,35 

PORR=5870150 ;P0KE59464,R:FORX=iT03® ; NEXT■NEXT 
PRIMI"1 3 BOOM m tr 

P0KE59466,1 -P0KE59464,255 :FORX=1TO40®■NEXT 
P0KE59467,0 -P0KE59466,0 :F0KE59464 ,0 
RETURN 

REM * *** ** *** ** * **** * 
REM*** LASER *** 

R Ehi** ***** ** ** ****** 
P0KE59467,16 
P0KE59466, 15 
F0RL=1T05 
FORR=0TO100STER5 
P0KE59464 >R 
FÙRX=1T02 
NEXT:NEXT-NEXT 
P ClKE5$4&7 ,0 
POKE53466,0 
±txj P0KE59464,0 
230 RETURN 


130 


150 

160 

17® 


130 


210 














SU' & GIU' *** 


100 

110 REM*** 

1 20 . 

130 F=39464 
14fi PQKE59467, 16 
150 PC'KE‘59466,35 
160 FORL-1TO20 

170 FORL 1 = ITO14 P0KE59464jLI*16 :NEXT 

130 NEXT _ _ „ 

190 POK E5 9467, 0 : FQK E55466 j 0 F QK E59464U 

200 RETURN 


ne 

120 


100 R._, .. 

ile REM*** RAGGIO li ELLA MORTE 

120 

130 F=59464 
140 PQKE59467,16 
15£i P0KE5946£,15 
160 FORL=1TO200 

1 70 POKER, ISO : POKER ■ 200 : POKER*255 
188 NEXT 

130 POKER,0 -P0KE5946G,9 : PQKE594G7,0 
208 RETURN 


R EH*#** ***#******** *** * * 

REM*#* UCCELLINO *#* 130 

REM-******* ************* * 140 

R= 5 9464 150 

PQKE59467,16 160 

FQKE53466,35 170 

FORL=1TO10 1S0 

POKEP„8 : PORI= 1 T058NEXT 
FORL1=152TQ56STEPH3 
PQKE59464 Al ^ NEXT'NEXT 
P0KE59467,0-PGKE59466,0 : F0KE594o4■ 0 
RETURN 

108 


REM*** EFFETTO SPAZIO *** 


10+100*RNDa> 


P0KE59467 , 16 
PQKE59466,15 
FORL-1T0200:PQKE59464 
FQRI=IT06 r NEXT ; NEXT 
P0KE53467, 0 : PQKE59466,8 : P0KE55464 
RETURN 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 

Ili REM*#* DISCO VOLANTE 
126 RE M**** *# * ***** * * ******* * ** * 

10 e P=59464 
148 P0KE59 467,1 6 
150 PGKE59466>23 
160 FORL=160TO8STEP--3 

10S REM*** **** * * *** *** ** * *** * ** 170 F 0KEP , L POKER■L +5 : POKE F A +15 

110 REM*** MOTOCICLETTA *** lS0 fQRZ=1T08 NEXT NEXT 

120 REM ****** * ********* **# * *** * i -4 0 p qk E59467 * 0 : POK E59466, 0 -P 0KE5946 4 ,0 

130 P=59464 206 RETURN 

140 P0KE5946?/ 16 

160 FORL=2O0TO^35STFP. 7 - POKER A : POKER. L+5 ' POKER, L+20 r FORZATO 26 : NEXT ; NEXT 
170 FORL*iTO«0 P0KE59467,9 ■ P0KE5W66< 16F0KE594S7, 16 : P0KE59466,3_NÉ»T 
130 FÙ RL *2 35 TO 1 70STEP-.6■POKEP , L POKER , L+5 : POKEP A+13 : FORZ^1 T08 ■NEX T- NEXT 

2O0 FORL=£20TO129St!p“- S^POKEP j LXPOKEP, L+5: POKER A+15 : F QR2=1 TOS - NEXT - NEXT 

220 FORL=200TO?28STEP- , 4^POKER , L^POKEP * L+5 : POKEP A +15‘FORZAITO0 :NEXT: NEXT 

250 FOPL=140TO2O0STEP2:POKEP * L : POKEP > L+5 : POKERA+15 FQRZ-1TO0■NEXT- NEXT 

"60 P=59464 : L=2Ù0 : PGKE534E7,16 : POKE59466,51 

278 FORX= 1 TOSO : POKER, L ; POKER A +7 ■ POKER A+ 1 4 ■ NEXT 

280 PGKE53464j 0 

290 P0KE59464 Ai : FORX=lTOT NEXT 

306 PO KE5946 7 , 0 FOKE594 66 ,0■POKE 59464,0 

310 RETURN 


—-—- 


--- 


— — — — 







PE T — C B 1 


sport 


di Gloriano fiossi { i 2KH) . 

Nor non é' il «olito gioco di s i mu ì az i one di una Sara sportiva con N difficolta' 
od altro. 

Fino alle ««sta dello scorso anno* le sare sportive di mntoc i c 1 i smo è di 
automobilisuo con prove di regolarità'? sfruttavano l'oneroso utilizzo di centri 
maccanogr af i c i di alcuni Services al fina di avere un unico fatto positivo che 
consisteva nella consona per il Giorno seguente? quando andava bene? di un 
tabulato che riportava la graduatoria # la statistica delle prove, 

A settembre dèi 19BQ entra in campo» due giorni prima dèlia dora? la EASY Svitai» 
di Cremona. 

Preventivo? Addirittura Tedicelo al confronto dèlie precedenti fatture» e quindi 
accettato senza riserve. 

Allora subito al lavoro- analisi con la consulenza dei Giudici di gara è via 
partenza con la p rogrammazione- 
Dopo quarantotto ore insonni! 

Configurzzjone Commodore? 

CBR 3032 
3 0-40 

at 3mp an 1 1 =: 

Program*i {piuttosto grossi ni)' 

1- inseriménto dati generaii è dati degli equipaggi. 

2- Inserimento e variazioni dèi risultati e visualizzazione real-times. 
Creazione di spoolins. 

3- Esecuzione delle stampe delle classifiche* delle statistiche secondo 
le necessita 1 della gara. 

Bene? tutto funziona) si porta il sistema vicino alla giuria? {ve lo figurate un 
370 della IBM o un L62 della Honeywell trasposrtato in loco?) e si incomincia a 
far partire il primo programma- poi al comando di START vìa con il secondo. 

Alla fine della gara viene fatto "girare 1 ' l'ultimo programma, quello che stampa? 
ed ecco? come d'incanto la stampante macinare carta su carta» dati su dati? 
classifica generale? classifica per classe? classifica globale? classifica 
classifica ... . 

*'C onte g i a r pronto ! ? ! 7 " 

"SI - Certa"? e via con orgoglio al «er i tato riposo. 

La EASY System? dopo questa positiva esperienza? ha effettuato altre assistenze 
quali rally o di motocross, 

I risultati? Sempre positivi sotto ogni aspetto? qualità'? velocita e ... prezzo, 
A prova di tutto ciò' sono arrivati in redazione due tabulati come esempio- Il 
primo relativo a quella fatidica gara? che era organizzata dall'Automobile Club 
di Cremona? il I trofeo CAftIPLQ relativo al V Rally nazionale "t.Perabeli "' ed il 
secondo relativo all'ultima assistenza? cronologicamente cronologicamente 
parlando? relativa al I trofeo '"Agostana" organizzato dal Noto Club di eresia. 

Si può' concludere questo breve redazionale con le stesse parole con cui termina 
un articolo» relativo ad una delle gare assistite» apparso su due colonne di un 
suoiid ì ano 1 

"--. grazie quindi alla EASY Suste» dt Cremona che ha curato l* elaboraziona dei 
dati e delle classifiche con l r elaboratore CBN 3032 e che solamente mezzora dopo 
la conclusione delle vari* prove aveva Sia fornito le classifiche- Un veroi e 
proprio record di efficenza che e' stato molto apprezzato da tutti". 


Gualche cosa di nu'' al 
BASIC standard! del PET/CBM 


BASIC 





Quando* tenninato il numero zero di pocket 
eseguire una cernita di argomenti adatti ad 
numero* abbiamo optato* tra l altro e 
BASIC Plus. 


p£T* si e' iniziato ad 
essere pubblicati su questo 
senza alcun dubbio.. sul 


Che cosa e ,, ‘ in sintesi il BASIC Plus? 


E' presto detto. 

Il BASIC Plus e' un insieme 
macchina che or por tu riamente 
funzioni di estrema uti lita * 
sporadicamente fa programmi» 


di routinette scritte in lirvauassio 
riehiamate suolàono delle partico teri 
sopprat tutto per- chi normalmente o 


Il sistema di richiamo dalle carie funzioni speciali del BHblC Plus e^ 
oujeIlo classico delle normali funzioni del BASIC standard. In oam 
Amento e ir, «valsici Posizione dello schermo, nonché' nel sistema 
abbreviato* e-' possibile richiamare la singola routine del BASIC ful. _ 
11 prodotto BASIC Plus viene venduto essenzialmente in tre versioni 
base* che sono 1 


-BASIC Plus per serie 3S@0 con 32KRRM da caricare ed attivare con il 
comando SYSC30000) 

—DOS Plus per serie 3000 con 32KRAK che comprende il BFlSlv F lus e il 
DOS da caricare ed attivare con il comando 3V5<30006>* 


-BASIC Plus per serie 3000 sia con 3 che 32 KRAM in versione circuito 
intear-Kto (vedi nota a -fine articolo) da inserire direttamente sulla 
riastra dei componenti. La sua attivazione si ottiene con il celando 
SY5<471&3>. Arrenasi accende il computer, a tutti ali ef+etti, v.n 
comando BASIC Plus e' operativo, non e' necessario quindi dover 
eseguire la LORD di c*uesto insieme di routine^. 


-DOS Plus per la serie 4000 e SS00 che comprende sia il DO-=i ohe il 
BASIC Plus espanso. La sua, attivazione a' possibile sempre con il 
comando SYS <30000). 


















Vediamo in breve le -funzioni del BASIC Plus "tenendo presente che nelle 
■fcrmu lette -tutto ciò' ohe viene scritto tra le parentesi quadre e' 
orti ori a le e guanto viene richiesto dovrà' essere citato so lamenta 
Stuardo ne esista la necessita'' ■ 


im LI t i_j 

Provvede alla numerazione progressiva di un programma durante la 
digitazione* 


mUT u fnumero di partenza] Classo] 


AUTO 
AUTO10 
AUTO10,5 


la numerazione 
la numerazione 
la. numerazione 


inizia con 100 con passo 10, 
inizia con itU sempre cort Passe IO. 
inizia con IO e aura' passo 5, 


RENUME 



Frovvede a 1 1 a rinum eraz i on e di un Pr o gir- amena re s i dent e in memor i a , 
variando In conseguenza anche te GOTO, te THEH e le G05UB. 


REMUMBER Enumero di partenza] Cerasse] 


REMUMEER senza alcun parametro numerico ettettua la ri nume razione 
del programma residente in «tue l momento in memoria Partendo dalla linea 
10U e proseguendo di 10 in 10, 

RENUMBER10,10 rinumera il Programma oggetto di 10 in 16, 


DELETE 

i- ano ella n r un Pi di linee del r r osr am ma ras i dente i n memor i a. 


TELETE inumerò di Partenza] C,numero di arrivo] 


DELETE-130 

compresa. 

DELETE50-162 

DELETE355- 


cancella tutte 

cancella tutte le 
cancella tutte te 


le righe dall'inizio tino alla 130 

linee fra i numeri interessati compresi, 
linee dalla 355 compresa in noi. 


DELETEREM 

<solo rer_serie 4000 e 3000) elimina tutte le voci riportate doro la 
parola BASIC REM, Questo comando ci permette di redigere un Programma 
con rilette spiegazioni e «uindi preparare la versione che a tutti gli 
trt tetti dovr a -gir are- , due l la che do vr a * avere u na ocoup az i on e minore 
di memoria» 

Questo comando non ha ortieni limitative, non e' quindi rossibi le 
e 1 imirictre in parte di programma le REM indesiderate. 




i m u 


Esegue ii disio la* di tutte otuelle linee di programma che contengono le 
lettere che seguono i 1 coiti andò stesse. 


FIND elemento BASIC l..num.»art] L>riunì,arr-ivo 1 

FI NIi ri < e 1 emerito d i str i nfi a> lf t > num* par t 3 C > num * arr i ve 3 

/ 

FIND A$ esegue la ricerca di tutte le linee di programma che 

contengono la variabile FM, . ... . . 

FIND R$j 50-250 esegue la medeeina ricerca dell esempio precedente* 

pero'" limitardo detta ricerca alle linee comprese tra i numeri indicati 
doro la circola* (FINE R£-~iO0 tino alla riga 100>(FINI) Fl$*500 _ dalla 

riga 506 in poi)* 


flPPEND 

Esegue l" r acc od amento di un programma salvato su cassetta o su disco ad 
un altro residente in (memoria* ma non ordinando la numerazione! 
questa ultima ragione risulta oblo libatorio eseguire la ri numerazione 
Preventiva del programma ohe dovrà'' essere accodato a *ue l lo residente 

in memoria* 


fiFPEHD C "nom.progr n ì C*2] rer cassetta 
flPPEND "dnnom.nrogr "18 per disco 


DUMP 

Tutte le vari ab i li semplici inizi ali zzate vengono edittate nell ordine 
in cui sono state create* 


DUMPV 


*Cso lo per U serie 4060 e SS06> I contenuti 
C DIn > > vengono visualizzati sul video* 
programmatore di dover eseguire dei cicli di 
programma* per conoscere i valori contenuti 


di tutti gli Arra* (matrici 
Questo comando evita al 
F0R* *NEXT* al di tuori del 
nelle matrici* 


HELP 

Se durante L'esecuzione del programma 'Vivresti si "piantasse” sagnalando 
un SI Nifi EPR0R od altro messaggio di interruzione anomala con questo 
semplice comando il sistema visualizzerà" la riga di programaa che ha 
causato V interruzione evidenziando il Punto nel oiuale e arrivato 
invertendo da positivo in negativo l^ultimo carattere della singola 
istruzione* 


TRACE 


Evidenzia sul lato destro in alto dello schermo il numero delle ultime 
6 righe di programma eseguite* 






STEP 


Comando che abilita automaticamente it TRACE, ma ad ogni riga si tanna 
ed aspetta ohe si prema il tasto SHIFT. 


OFF 

Onesto comando disabilita i comandi di TRACE o di STEP, 


REPEflT 

Attirando questa turione ogni tasto che viene tenuto premuto rer nu¬ 
di 1/2 secondo viene ripetuto automaticamente in continuazione fino a 
che non si r i Lascia i1 tasto stesso» 

Per- V'abi litazione d i v.i esta f unzione si preme semr ìicemerite i l tasto 
poi RETURN, mentre per disattivarlo si mero e il medesimo tasto 
shiftato e quindi ancora i 1 tasto di RETURN. 

fìt tenz i one c he se s i car i c a un qua Is i as i r r olir amma da Ila re r if er i ca 
C2M, i 1 com arido REPERÌ si disinserisce automati cariente, quindi occorre 
r i atta i l i t ar lo p er av ere ancor a l a t unz i one des i de rat a. 

Il comando di REPERT dovrà' essere disabilitato anche se si dovesse 
eseguire una SfiVE su tape-cassetta, in guanto, in caso contrario, 
questa funzione, inserita, non Permette una sicura scrittura del 
programma che deve essere salvato, 

— ---- 

Come c =*jr~ i o ar e i n rnemor i A 

i 1 EP13 I F F lus 

Il BRStC Plus, nella versione su supporto magnetico (nastro o disco) 
deve, ovviamente, essere caricato prima di diventare operativo, per 
fare ciò' si dovrà' eseguire^ 

LORD "BASIC PLUS" C,23 se il supporto e la cassetta magnetica, 

LORD *'dn,BASIC PLUS ,f ,S se il supporto e' il disco. 

Dopo -questa operazione si esegue semplicemente il comando 
8VS (30600) 

Ed il sistema risfonderà/ con una scritta di conferma per convalidare 
la corretta operazione svolta e la messa in finzioe del BASIC Plus. 


—— — 


nfo: tutti i tiri di BASIC Plus sono acquistatai li presso tutti ì 
rivenditori Harden autorizzati. 

Rendiamo, in oltre, noto a tutti i nostri lettori ohe_ il laboratorio 

s ree i a l i z z ato i n man ut e nz i one ed i nst a 11 ez i one > COSMO S 36 SS di Pao lo 

Mazzaferro (via Mazzini 26 - 65106 Pescara ~ 085.31607) ha realizzato 
due ROM per i l FET/CEM serie 3666, contenenti rispettivamente i1 

BASIC Plus e il DOS Support, mentre e" 1 in preparazione la ROM per la 
serie OEM 8O0O, 

L'onere di acquisto, a nostro parere, e y estremamente irrisorio e 
potr a " es se r e cor r i s post o semplice mente f r am ite con t r o -assegno ■ 

BASIC Plus + DOS Support (2 RDM) L. 50,000+IVA 
Scio DOS Support (1 ROM) L, 25.000+IVA 

Solo BASIC Plus (1 ROM) L. 35,000+IVA 

ROM per serie 3606 in preparazione. 
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Internamente ella Harden e r stato creato un dipartimento spec i al I zzato nel campo 
educ-szionale con lo specifico scopo di diffondere e promuovere la cultura 
del1 r i nf ornaiica nello scuole. 

L'anàlisi strutturale di questo dipartimento si di viti* et senz i al emerite m tre 
parti ben distinte. 


1- Gestione della segreterìa* programmi e procedure atte ad aiutare tutto 
lavoro aùiit*t*ri]i rh* risulta in particolàre motto oneroso ^uale ad esempio l- 


dt seireteria che risulta i 
padhe e stipendi . 

2- Didattica supportata da molttssim 
in o «in s specifico settore delle materie di insegnamento. 

3- Corsi e seminari. 


programmi studiati appositamente da esperti 





































I pacchetti' software di detti ti verranno concessi in uso Gratuito alle stuoie che 
ut i 11 i zzeranno il servigio scolastico di questo 4 i p art i mento della Harden* 

Questo servizio scolastico e' indirizzato a tutte quelle scuole che accostano #1 i 
allievi per la priea volta In «odo professionale alla soluzione dei problemi 
contabili, amainisirativi, Matematici e fisici attraverso l # Informatita * 

Gli allievi troveranno facil Mente le soluzioni di suei problemi che devono e che 
dovranno affrontare* L'approccio con l r automazione e Inutilizzo di questi 
strumenti che oramai Aia* ora sono entrati in tutti i settori della vita moderna 
sara' immediato* 

Con le soluzioni proposte dal dipartiMento stuoie della Harden il problèma di 
immettere ftl f alunnF nella vi ta quotidiana di lavoro e r senza dubbio risolto* 

Un mezzo moderno e valido per un Piu’ adeguato i nseflnaiiento* 
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Tavola delle compatibilita" 
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Stampante 3022 
Stampante 4022 
3tattuante 3024 
Stampante EmTQH 
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x ' accoppiamento consentito 

^ = accoppiamento consentitoj ma non sfruttato in Pieno 
x' = accoppiamento consentito con interfaccia 
- accoppiamento impossibi le 
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Harden non vende solo computerà 
Vende soluzioni per I tuoi problemi. 


L'avvocato, il medico, l'industriale, l'artigiano e il negoziante. 

Tutti oggi ci troviamo spesso di fronte ad una serie di esigenze fiscali., legali, 
contabili e amministrative, senza contare quelle organizzative e pratiche, che ci 
portano via sempre più tempo in fastidiosi lavori di routine. 

Fortunatamente oggi c'è Harden. 

Harden non si limita a consigliare e a vendere il computer più adatto e più 
conveniente in rapporto a ciascuna esigenza, sia come dimensione che come marca 
[è esclusivista per l'Italia della Con inodore, della Compucorp e OEM Data General) 
ma provvede anche all'addestramento di chi dovrà usare la macchina, alla 
manutenzione e all'assistenza tecnica, nonché a qualsiasi esigenza di software, sia 
con migliaia di programmi già sperimentati e collaudati sia preparando programmi 
specifici su misura. 

Venite di persona, sorgeteci: ci sono più di 
400 punti di vendita e assistenza Harden, in Italia. 
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